From 671accfb550f8b63e7d9b5f008344a86ab117429 Mon Sep 17 00:00:00 2001 From: "Aaron S. Hawley" Date: Tue, 29 May 2012 19:41:45 +0800 Subject: [PATCH] * vc.el (vc-revert, vc-rollback): Dont kill vc-diff buffer on revert. --- lisp/ChangeLog | 5 +++++ lisp/vc/vc.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e14cfda9694..eedb3e581f8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-05-29 Aaron S. Hawley + + * vc/vc.el (vc-revert, vc-rollback): Dont kill vc-diff buffer on + revert (Bug#11488). + 2012-05-29 Juri Linkov * isearch.el (isearch-mode-map): Bind `M-s _' to diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index ad828d6f78f..87e4e1c5124 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2285,7 +2285,7 @@ to the working revision (except for keyword expansion)." (if (= nfiles 1) "" "s")))))) (error "Revert canceled"))) (when diff-buffer - (quit-windows-on diff-buffer t))) + (quit-windows-on diff-buffer))) (dolist (file files) (message "Reverting %s..." (vc-delistify files)) (vc-revert-file file) @@ -2331,7 +2331,7 @@ depending on the underlying version-control system." ;; Display changes (unless (yes-or-no-p "Discard these revisions? ") (error "Rollback canceled")) - (quit-windows-on "*vc-diff*" t) + (quit-windows-on "*vc-diff*") ;; Do the actual reversions (message "Rolling back %s..." (vc-delistify files)) (with-vc-properties -- 2.30.2